home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Shareware / IDimager Personal 4.2.0.3 / setup_IDimager_Personal_V4.exe / {app} / web / modules / editdetails.psc < prev    next >
Text File  |  2008-06-22  |  2KB  |  51 lines
  1. %include uservalidate.inc %/include
  2.  
  3. %code
  4.  
  5. %include storeddata.inc %/include
  6. %include publicfunctions.inc %/include
  7.  
  8. var
  9.   AItems: TCatalogItems;
  10.   APage: Integer;
  11.   AHeadline, ADescription: WideString;
  12.   ALink: WideString;
  13. begin
  14.   result := toWideString('');
  15.  
  16.   if not FindStoredData (Request.Params.Values['ds'], AItems, False) then
  17.     exit;
  18.  
  19.   APage := 1;
  20.   if IsValidNumberString(Request.Params.Values['page'], False) then
  21.     APage := StrToInt(Request.Params.Values['page']);
  22.   AItem := AItems.Items[APage - 1];
  23.  
  24.   AXmp := TXMP.Create (False);
  25.   Catalog.LoadXMPForItem (AItem, AXmp, Options.CachedXMP);
  26.  
  27.   AHeadline    := FormatForHTMLEditing (Nvl(AXmp.QuickGetProperty('http://ns.adobe.com/photoshop/1.0/', 'photoshop:Headline'), ''));
  28.   ADescription := FormatForHTMLEditing (Nvl(AXmp.QuickGetProperty('http://purl.org/dc/elements/1.1/', 'dc:description'), ''));
  29.  
  30.   ALink := 'javascript:postForm($(''frmDetails''), ''%var:PageOffset/modules/storedetails.psc'', ''%var:PageOffset/modules/showimagedetails.psc'', ''editDetails'', ''ds=' + Request.Params.Values['ds'] + '&GUID=' + AItems.GUID + '&Page=' + IntToStr(APage) + ''')';
  31.  
  32.   result := result + '<form id="frmDetails" method="POST" action="' + ALink + '">';
  33.   result := result + '      Headline: <br/>';
  34.   result := result + '<input class="editObject" name="dfHeadline" size="60" value="' + AHeadline + '"><br/>';
  35.   result := result + '      Description: <br/>';
  36.   result := result + '<textarea class="editObject" name="mmDescription" cols="80" rows="5">';
  37.   result := result + ADescription;
  38.   result := result + '</textarea>';
  39.  
  40.   result := result + '<br/>      <input class="editObject" type="submit" value="OK">';
  41.  
  42.   ALink := 'javascript:getHTML(''%var:PageOffset/modules/showimagedetails.psc'', ''' + AjaxContainer + ''', ''ds=' + Request.Params.Values['ds'] + '&GUID=' + AItems.GUID + '&Page=' + IntToStr(APage) + ''')';
  43.   result := result + '      <input class="editObject" type="button" value="Cancel" onClick="' + ALink + ';">';
  44.   result := result + '</form>';
  45.  
  46.   AXmp.Free;
  47. end;
  48.  
  49. %/code
  50.  
  51.